home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP12.EXE / POINTR1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-06  |  822b  |  40 lines
  1. program DemoPointeur1;  {POINTR1.PAS}
  2. uses
  3.   crt;  { unité de Turbo Pascal 5 }
  4.  
  5. type
  6.   pointeur = ^integer;
  7.  
  8. var
  9.   a,b,c: pointeur;
  10.  
  11. begin
  12.   clrscr;
  13.   {création des variables dynamiques a^,b^,c^,}
  14.   new(a);
  15.   new(b);
  16.   new(c);
  17.   {auxquelles nous affectons des valeurs}
  18.   a^:= 20;
  19.   b^:= 40;
  20.   c^:= 60;
  21.   writeln('a^ = ',a^,'  b^ = ',b^,'   c^ = ',c^);
  22.   writeln;
  23.   writeln('Nous affectons à a^ le contenu de b^');
  24.   writeln;
  25.   a^:= b^;
  26.   writeln('a^ = ',a^,'  b^ = ',b^,'   c^ = ',c^);
  27.   writeln;
  28.   writeln('Nous affectons à c^ le produit a^ * b^');
  29.   writeln;
  30.   c^:= a^ * b^;
  31.   writeln('a^ = ',a^,'  b^ = ',b^,'   c^ = ',c^);
  32.   gotoxy(1,25);
  33.   write('Veuillez appuyer sur <CR>...');
  34.   readln;
  35.   {suppression des variables dynamiques}
  36.   dispose(a);
  37.   dispose(b);
  38.   dispose(c);
  39. end.
  40.